home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 87 / CDMM87_2.ISO / Incoming Forces / data1.cab / Forces_Files / asc / misc / cutscene_cleanup.mdl < prev    next >
Encoding:
Text File  |  2001-11-28  |  4.6 KB  |  241 lines
  1. //***********************************************************
  2. //* cutscene_cleanup.mdl                                     *
  3. //***********************************************************
  4.  
  5.  
  6. set_variable "wide_screen" 0
  7.  
  8.  
  9.  
  10. //************************************************************************************
  11. //************************************************************************************
  12. //************************************************************************************
  13. .enter_a_scene                            // for scenes without widescreen
  14.  
  15. game_flag key_pressed 0
  16.  
  17. return
  18.  
  19. //************************************************************************************
  20. //************************************************************************************
  21. //************************************************************************************
  22. .exit_a_scene                            // for scenes without widescreen
  23.  
  24. wait_until proc "skip_scene" terminated or key_pressed
  25. end_procedure "skip_scene"
  26. game_flag key_pressed 0
  27. fade down over 2 frames wait
  28.  
  29. return
  30.  
  31. //************************************************************************************
  32. //************************************************************************************
  33. //************************************************************************************
  34.  
  35. ;-------------------------------------
  36.  
  37. .enter_cutscene
  38.  
  39. set_variable "in_a_scene" 1
  40.  
  41.  
  42. if gamemode_lock set
  43. {
  44.     pause 10
  45.     jump "enter_cutscene"
  46. }
  47.  
  48. gosub "controls_away"
  49.  
  50. camera save
  51.  
  52. gamemode game lock
  53. widescreen on over 1 frames
  54.  
  55. phasemessage 21 1
  56.  
  57. set_variable "wide_screen" 1
  58.  
  59. restartsubelementals
  60. suspendbaddies
  61.  
  62. game_flag key_pressed 0
  63.  
  64. return
  65.  
  66. ;-------------------------------------
  67.  
  68.  
  69. .cutscene_fade_up
  70.  
  71. fade down over 0 frames
  72. fade up over 20 frames wait
  73. widescreen on wait
  74.  
  75. return
  76.  
  77.  
  78. ;-------------------------------------
  79.  
  80.  
  81. .start_scene
  82.   fade down over 0 frames wait
  83.   fade up over 20 frames wait
  84. return
  85.  
  86.  
  87. ;-------------------------------------
  88.  
  89.  
  90. .end_scene
  91. ;  widescreen off
  92.   fade down over 20 frames wait
  93.   kill used
  94. return
  95.  
  96.  
  97. ;-------------------------------------
  98.  
  99.  
  100. .exit_cutscene
  101.  
  102. testoutput2 "in exit scene"
  103.  
  104. //procedure ternimation for cut scene methods blah..
  105.  
  106. pause 30 //to stop fire button press skipping a scene.......
  107.  
  108. wait_until proc "itest1" terminated or key_pressed
  109. testoutput2 "end_procedure itest1"
  110. end_procedure "itest1"
  111. game_flag key_pressed 0
  112.  
  113. game unfreeze
  114. capture off
  115.  
  116.  
  117. fade down over 20 frames wait
  118. kill used
  119. widescreen off over 1 frames
  120. set_variable "wide_screen" 0
  121. fov 100
  122. kill sincesuspend
  123. suspendbaddies restore
  124.  
  125. gosub "controls_back"
  126.  
  127. cameo anim "null"
  128.  
  129. fade up over 20 frames
  130.  
  131. gamemode game
  132.  
  133. set_variable "in_a_scene" 0
  134.      testoutput2 "at the end of exit scene"
  135.  
  136. return
  137.  
  138.  
  139. ;--------------------------------------
  140.  
  141.  
  142.  
  143. .controls_back
  144.  
  145. set_task "hero"
  146.   playercontrols
  147. end
  148.  
  149. widescreen off
  150.  
  151. camera restore    //cockpit
  152.  
  153. ;fade up over 10 frames
  154.  
  155. return
  156.  
  157.  
  158.  
  159. ;--------------------------------------
  160.  
  161.  
  162.  
  163. .fireandwater
  164.  
  165. ;procedure "fireandwater"
  166. ;    referenceobject "current_object"
  167. ;    do
  168. ;    if distance_between "reference_object" and 0 on sky 0 relative toxz "reference_object" >80
  169. ;            jump "rj1"
  170. ;    createstatic "firering"
  171. ;    position 0 on sky 0 relative toxz "reference_object"
  172. ;
  173. ;.rj1
  174. ;    if distance_between "reference_object" and 0 on water 0 relative toxz "reference_object" >200
  175. ;            jump "rj2"
  176. ;    createstatic "ripple01"
  177. ;    position 0 on water 0 relative toxz "reference_object"
  178. ;    createstatic "splash01"
  179. ;    position 0 on water 0 relative toxz "reference_object"
  180. ;    set_flag 1
  181. ;.rj2
  182. ;    pause 2
  183. ;    forever
  184. ;end_procedure
  185.  
  186. return
  187.  
  188.  
  189. ;--------------------------------------
  190.  
  191.  
  192.  
  193. .controls_away
  194.  
  195. set_task "hero"
  196.   throttle 0 frames 1
  197.   rotate 0 0 0 frames 1
  198.   velocity 0 0 0 0 0 0
  199. end
  200.  
  201. return
  202.  
  203.  
  204.  
  205. ;--------------------------------------
  206.  
  207.  
  208. .exit_level
  209.  
  210. //procedure ternimation for cut scene methods blah..
  211. wait_until proc "itest1" terminated or key_pressed
  212. end_procedure "itest1"
  213. game_flag key_pressed 0
  214.  
  215. game unfreeze
  216.  
  217. fade down over 20 frames wait
  218. kill used
  219. widescreen off over 1 frames
  220. set_variable "wide_screen" 0
  221. fov 100
  222. kill sincesuspend
  223. suspendbaddies restore
  224.  
  225. set_variable "in_a_scene" 0
  226.  
  227. gamemode game
  228.  
  229. return
  230.  
  231.  
  232. ;--------------------------------------
  233.  
  234.  
  235. //***************************************************************
  236. //***************************************************************
  237. //**                      END OF FILE                          ** 
  238. //***************************************************************
  239. //***************************************************************
  240.  
  241.